transfer_self_efficacy

Transfer Self-Efficacy

Digest of Education Statistics

Relying on Digest of Education Statistics to estimate high school graduates enrollment trends.

Percent of High School graduates enrolled in postsecondary education

Table 302.10. Number of recent high school completers and percent enrolled in college, by sex and level of institution: 1960 through 2022.

This table was retrieved on October 10, 2024. The table was prepared on December 2023.

Retrieving and preparing database

Retrieving the excel file table302_2 HS enrollment in percentages. Renaming the variables and creating a pivot_longer excel file.

library(readxl)
table302_1_hs_enrollment <- read_excel("~/Documents/2024 Economic Inquiry in Education - EDU-633-003/data/tabn302.1_hs_enrollment.xlsx") |> 
  as_tibble()


table302_1_hs_enrollment <-  table302_1_hs_enrollment |> 
  rename(All = per_tot) |> 
  rename('Two year' = per_2yr) |> 
  rename('Four year' = per_4yr)
  

table302_1_hs_enrollment <- table302_1_hs_enrollment |> 
  pivot_longer(cols = 2:4, 
               names_to = "institution",
               values_to = "percent") |> 
  mutate(year = as.numeric(year),
         percent = round(percent,digits = 1)) |> 
  filter(year >= 2000)

Plotting percentage of high school graduates enrolling in postsecondary education.

Interactive figure using ggiraph.

In this modified script:

geom_point_interactive() and geom_line_interactive() from ggiraph allow adding tooltips for interactivity.

Adjust width_svgand height_svg parameters in girafe() to fit your preferred display dimensions.

This setup makes the plot interactive, allowing users to hover over points or lines to see additional information. Adjust the data and titles (subtitle and caption) as needed.